home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 071-080 / amok75 / oberon3.0 / o3demo2.lzh / Definitions / BigIntegers.def < prev    next >
Text File  |  1992-08-22  |  638b  |  26 lines
  1. DEFINITION BigIntegers;
  2.  
  3. IMPORT
  4.   BT := BasicTypes;
  5.  
  6. TYPE
  7.   BigInteger = POINTER TO BigIntegerDesc;
  8.   BigIntegerDesc = RECORD (BT.RINGDesc) 
  9.     negative : BOOLEAN;
  10.     digits : POINTER TO ARRAY OF INTEGER;
  11.     PROCEDURE (a:BigInteger) Compare(b: BT.COMPAREABLE): LONGINT;
  12.     PROCEDURE (m:BigInteger) Add(n: BT.GROUP): BT.GROUP;
  13.     PROCEDURE (m:BigInteger) Neg(): BT.GROUP;
  14.     PROCEDURE (m:BigInteger) Norm(): LONGREAL;
  15.     PROCEDURE (m:BigInteger) Mul(n: BT.RING): BT.RING;
  16.     PROCEDURE (n:BigInteger) ConvertToString(): BT.DynString;
  17.   END;
  18.  
  19. CONST
  20.   MaxDigit = 1000;
  21.  
  22. PROCEDURE Create(init: LONGINT): BigInteger;
  23.  
  24. END BigIntegers.
  25.  
  26.